home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Backup.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  7.0 KB  |  26 lines  |  [TEXT/.Ob4]
  1. ¯6ˇ‡ 2ë1ÆñBackupÇ!™ÉWriteFiles™ÑÖH¯ŒSys2˘úfIn2ˆßæTexts<
  2. ‡4Outܡˇ¸ˇ)¸ ˚˙ˇ˚M
  3. ˚J˙Ρ˛˙¯˙Ë˙’áPBGetCatInfoSync$# files saved$Reading directories-- Invalid destination directory. res = #$-- Invalid source directory. res = #$--      ---    saved$ + resources (error -5000)àøaˇÏî!ˇ®;·8;£;ƒ;Ö;`|ª|}ÿÆ,ÉAÊ 0õ §|ª|ΩÿÆ|º!Æ3{C‡ˇÿõ|Ä!ªaˇÏO‡ |¶ø°ˇÙêî!ˇh;·8êA;ƒ9?ˇ¸8¿|…¶Ä√Ä„ê…Ñ√îÈÄ„Bˇê…êÈ8c9) |√4™|…5™ÅBˇ‰ÄjˇÿÄBˇ‡HÄAê~Å~ ã9Äëã Ä~ É8üêÉÄæ Ö®fl∞≈IJ áÅë0Å> â9@±IÄ~Ä |    ¶ÄBO‡!ÄA;£/A˙‡ÄhÄ!|¶ª°ˇÙO‡ |¶ø°ˇÙêî!ˇh;·8êA;ƒ8üˇ¸9`}i¶ÅcÅÉëdÖcïÑÅÉBˇëdëÑ8c8Ñ }c4™}d5™ÄbˇÙÄBˇ‡KˇˇAÄAê~Äæ Ö8¿ê≈ IJ á9ëÅ> â©_±IÅ~ ãÅüëã0Ä~ É8Ä∞ÉÄ~Ä |    ¶ÄBO‡!ÄA;£/ùA˛‡ÄhÄ!|¶ª°ˇÙO‡ |¶øaˇÏêî!ˇ®;·8êA;£;ƒ8ÄBˇËHÄAàø,Ö AÂĬˇËàÊ!/A˙ˇ‘;`â?/â"A˛â_,ä'@Êlãü8ÄBˇËKˇ˝ÖÄAÅbˇËâã/ A˙4àɇA˛(|ªàü|ùŸÆ3{8ÄBˇËKˇ˝5ÄAC‡ˇƒ8ÄBˇËKˇ¸˘ÄAC‡DÄ¢ˇËà≈,ÜAÊ4àˇ/ @˘(|ªâ}ŸÆ3{8ÄBˇËKˇ¸ÂÄAC‡ˇƒ|ª9 }=ŸÆ1[ˇˇô]Ä(Ä!|¶ªaˇÏO‡ |¶øaˇÏêî!ˇ®;·8êA;ƒÅa1ûUÑ8|$ëaêA;°8TÖ˲|©¶8√ˇ¸8·4ÖÖ&ïï'Bˇã};ÄúÿA˝ |º|}‡ÆÄBˇHÄA3úC‡ˇ‡Ä(Ä!|¶ªaˇÏO‡ øAˇËî!ˇ®;·8;ƒÅA1~Ul8|,ëA;°8UÑ˲|â¶8„ˇ¸94Ö'ÖGï(ïHBˇ;ÜÅa1úUÉ8|#ëa;a8Td˲|â¶8•ˇ¸8¡4ÑÂÖîÊïBˇâ=â[|âPAÊ 8`C‡Dã]/@˘$|∫|∫‡}}–Æ}õ–Æã`@˛ 3ZˇˇC‡ˇ‹,ö|`&Tc?˛C‡‡Ä!ªAˇËO‡ |¶ø°ˇÙêî!ˇh;·8êA;ƒ8ˇˇ¸8Ä|â¶ÄÉÄ£êáÑÉîßÄ£Bˇêáêß8c8Á |É4™|á5™;†Äbˇ¸ÄBˇ‡Kˇ˛EÄA;£ ù9ë ù9ü8}9 })¶Å,ÅLë#Ö,ïCÅLBˇë#ëC9å8c },4™}#5™ ù ûÄûLêùL ù ûÄæ6êΩP ù ûÄfi@ê›T ù ûIJ$ê˝X ù ûÅ ë\ ùÅ=PÅB    P@˘ ùÅ}Pëb ùÅùTÄbå@˝ ùÄùTêÇ8}C‡‡ÄhÄ!|¶ª°ˇÙO‡ |¶øÅˇêî!ˇ∞;·8êA;√;§;Ä ûÉûd,úAÊ8 ù8}
  4. 8Ä@ ú8º
  5. 8¿@Kˇ˝M £/A˙ úÉúC‡ˇ»8|C‡‡Ä Ä!|¶ªÅˇO‡ |¶øˇ‡êî!˛ò;·8êA;√;§;Ö; /ùA˛8 ù8}Ĭˇ‰Ä‰|    ¶ÄFËO‡!ÄA;c,õAʇC‡îÄbˇ¸ÄBˇ‡Kˇ˙}ÄA;£ ûã
  6. ;@¿A˘( ∫|ˇ“ û ∫@}“â(
  7. ô'3ZC‡ˇÿ ú®| úÄú`8ø ù8›ÅBˇ‰Ä
  8. |    ¶ÄJO‡!ÄA;c/õˇ’A˛‡ ù8} ûÄûX ûÄæ\8¿ˇˇÅbˇ‰Ä ‘|    ¶ÄKÿO‡!ÄA;c,õAʇ û8~8Ä8øÅǡ‰Ä ƒ|    ¶ÄL»O‡!ÄA;c/A˙‡ ù8}8Ä8øĬˇ‰Äƒ|    ¶ÄF»O‡!ÄA;c/õA˛‡® û8ûPÄ¢ Ö8•Ä‚ˇ‰Ä |    ¶ÄGO‡!ÄA;c,õAʇ® û8ûPÄ¢ Ö8•Åˇ‰Ä|    ¶ÄHO‡!ÄA;c/A˙‡®Å"ˇ‰Ä    |    ¶ÄI O‡!ÄA;c/õA˛‡®ÅBˇ‰Ä
  9. |    ¶ÄJ O‡!ÄA;c,õAʇ û8~
  10. 8Ä@Kˇ˘È ûÅ~T/ @˘Ñ û8~8Ä8øÅǡ‰Ä Ã|    ¶ÄL–O‡!ÄA;c/õA˛‡ ù8}8Ä8øĬˇ‰ÄÃ|    ¶ÄF–O‡!ÄA;c,õAʇ® û8ûTÄ¢ Ö8•Ä‚ˇ‰Ä |    ¶ÄGO‡!ÄA;c/A˙‡® û8ûTÄ¢ Ö8•Åˇ‰Ä|    ¶ÄHO‡!ÄA;c/õA˛,õÏxAʇ/Ïx@˙8bˇ–8ÄÄBˇHÄA®Å"ˇ‰Ä    |    ¶ÄI O‡!ÄA;c/õA˛‡®ÅBˇ‰Ä
  11. |    ¶ÄJ O‡!ÄA;c,õAʇ8bˇ¿8Ä
  12. ÄBˇKˇı9ÄA8bˇ∏8ÄÄBˇKˇÙÕÄAÅb1ãëÇÄ8Ä!|¶ªˇ‡O‡ |¶ø°ˇÙêî!ˇ`;·8êA8ˇˇ¸8Ä|â¶ÄÉÄ£êáÑÉîßÄ£Bˇêáêß8c8Á |É4™|á5™;¿ìflLÄbˇ¯ÄBˇ‡Kˇ¯yÄA;√ û9ë û9 ë>d û9@ë^h û88û9`}i¶ÅcÅÉëdÖcïÑÅÉBˇëdëÑ8c8Ñ }c4™}d5™88üLKˇı ûÄøL ÖÄ≈0êfi` ûġL áÅLëL8~C‡‡ÄpÄ!|¶ª°ˇÙO‡ |¶ø!ˇ‰êî!˛P;·8êA;√;§;Ö ûã>
  13. ;@»A˘( ∫}?“ û ∫@}^“âj
  14. ôiH3ZC‡ˇÿ ù®} ùÄù`8øH8flÅǡ‰Ä |    ¶ÄLO‡!ÄA;c/õˇ’A˛‡88ġˇ8øLĬˇ‰Ä‹|    ¶ÄF‡O‡!ÄA;c,õAʇ8Kˇ˝˘ê|ÄÄÄ!|¶ª!ˇ‰O‡ |¶øÅˇêî!ˇ∞;·8êA;√;§;Ä ûÉûh/A˙8 ù8}
  15. 8Ä@ ú8º
  16. 8¿@KˇˆM „/áA˛ úÉúC‡ˇ»8|C‡‡Ä Ä!|¶ªÅˇO‡ |¶ø!ˇ‰êî!ˇò;·8êA;√;§;Ä;];`|õ–A 8bˇ¥8ÄÄBˇKˇÙπÄA3{C‡ˇ‡8bˇ¨8ÄÄBˇKˇÒ•ÄA û8~
  17. 8Ä@KˇıÄBˇHÄA ûÉûd/A˙l;=;`õ»A˝ 8bˇ®8ÄÄBˇKˇÒâÄA3{C‡ˇ‡8bˇ§8ÄÄBˇKˇÒ9ÄA ú8|
  18. 8Ä@KˇÙôÄBˇKˇÒmÄA úÉúC‡ˇî ûÉûh,úAÊ,Åˇ¸Å"ˇ¯ÅHˇÙjH8|0ùKˇ˛· úÉúC‡ˇ‘Ä8Ä!|¶ª!ˇ‰O‡ |¶øˇ‡êî!˛P;·8êA;√;†;Ä;`; 8`.ÄBˇKˇ˚˘ÄAÅbˇ‰ÄkˇÿÄBˇ‡KˇÙ)ÄA;c õ9Äëõ õ û®~∞{8ÄòüX õ8øXêª õ ûÄfi`ê€0 õ≥;398{Ä‚ˇ‰Ät|    ¶ÄGxO‡!ÄA;C/@˙∞ û®~ ûÄû`8øX8flÅˇ‰Ä|    ¶ÄHO‡!ÄA;C/öA˛‡ õâ;U*¿}KÊpUl¯A‚,8Kˇ˙Ì;É ú ûÄ~hê| ûìûhC‡,88õKˇÙm;£ ù ûÄûdêù ûìædC‡,öˇ’@Ê C‡C‡‡C‡˛Ë ûÉæh/A˙(ÄΩˇ¸Ä¬ˇ¯Ä¡Ùg08}Kˇ˛Q ùÉΩC‡ˇÿÄÄÄ!|¶ªˇ‡O‡ |¶øÅˇ}&êëî!ˇ®;·8êA;√;§;Äìü ûÉûdN`B/úA˛ê8}8úKˇıêÅ?,âAÊ  úÅ_ äÅ|LÅäL `@˘L@Û88bˇ†8ÄÄBˇKˇÒÄA û8~
  19. 8Ä@KˇÒΩÄBˇKˇÒÄAN`Ç8|Äü8ΩKˇı) úÉúC‡ˇp ûÉûh/úA˛|8}8úKˇ˚yêÄ,É@Ê$Äúˇ¸Ä¢ˇ¯ÄƒˇÙf(8|8ù8øKˇ˙Yĸˇ¸Åˇ¯Å'ˇÙi@8|Å_Åjˇ¸Åǡ¯ÄãˇÙd`ÄüKˇ˛π úÉúC‡ˇÑÄ(Äø$Ä!|¶|ØÒ ªÅˇO‡ |¶øÅˇêî!˛`;·@êA;¿;†ÄBˇËHÄAÄBˇHÄA8¿ê¬88ÄKˇÔeàˇ/A˙â/à~@˛C‡88`8Ä8ø8fl
  20. Å"ˇ‰Ä    |    ¶ÄIO‡!ÄA;É,úAÊ 8bˇx8Ä&8ºÄBˇHÄAC‡Ë8
  21. Kˇ¯
  22. ;√88ÄKˇÓ·8`8Ä8ø8fl
  23. ÅBˇ‰Ä
  24. |    ¶ÄJO‡!ÄA;É/A˙ 8bˇL8Ä+8ºÄBˇKˇÏ≠ÄAC‡Ä8
  25. Kˇ˜•;£9`ëb8bˇ88ÄÄBˇKˇÓAÄA8~Kˇ˚m8}Kˇ˚eÄBˇKˇÓ%ÄAÅÇå0lëüˇ¸ÄBˇ‡HÄAÅüˇ¸ëÉ êb8~8ùKˇ¸˘C‡˛®8bˇ(8ÄÄ¢ÄBˇKˇÏEÄAÄBˇHÄA8`êbÄhÄ!|¶ªÅˇO‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8bˇ8Ä8¢ ÄBˇ‰HÄAÄÄ!|¶ª·ˇ¸O‡ â`ˇ¸ˇˇˇˇFileDesclˇ¯ˇ¸DirectoryDescdhhˇÙˇ‰DirInfoDescä 
  26. 48<@DPsw{É躗⁄ˇ78Cdgyz}~ÅÇÖÜâäçíïöüÆ≤µº¡”ficÂÍÏÌÛı¯ba"`#0_25@^BEP][\f[gko|Z}äYåèöXúü¨WæV…U˘¸ˇ#279:@BO\nru|ņߪ¬≈ÖÌÒˆ˘˙˝
  27.  #$'./29;BEYegr~Åèóù†ã¯ 8MakeStr255‰{i¯÷‡8GetFileInfo
  28. ·{par‚{res¯ï‡8GetDirInfo
  29. ·{par‚{res¯‰ 8ReadStringch‰{i„{start¯ã 8PrintString‰{@for„{i¯« 8EqualStringÂ{i¯•‡8NewFile
  30. ‚{f
  31. ·{info¯«8ThisFile
  32. ·{d
  33. ‚{f
  34. „{g¯‹∞8SaveFileÁ{@for
  35. „{dt
  36. ·{fÑfRef
  37. ‚{gÜgRefÂ{i
  38. Ê{info‰{res¯©Ë8NewDir
  39. ·{d
  40. Ãinfo‚{res¯Â¯8CreateDirÊ{@for
  41. ·{df
  42. „{dtÃdummyÂ{i
  43. ‚{parent‰{res¯á8ThisDir
  44. ·{d
  45. ‚{f
  46. „{g¯ÿ08PrintDirÊ{@forÂ{@for
  47. ·{d
  48. „{f‰{i‚{indent¯Õ¯8FillDir
  49. ·{d
  50. „{d1
  51. ‚{fÁ{iÊ{n
  52. ‰{parÂ{res¯™     8SaveDir
  53. ·{df
  54. ‚{dt
  55. „{få{first
  56. g¯°
  57. ‡¿WriteFiles
  58. ·{df
  59. ‚{dt„{res¯≤
  60. 8$$
  61. bufmaxLensavedFiles